home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / shelledt / shelledt.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  21.9 KB  |  777 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   documentMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             ""
  11.     :menu-item-labels       ("Open" "Save" "Save As" "About ShellEdit" "Quit" )
  12.     :menu-item-label-types  (:string :string :string :string :string )
  13.     :menu-item-states       (:active :active :active :active :active )
  14.     :menu-item-defaults     (nil nil nil nil nil )
  15.     :initial-selections     (nil nil nil nil nil )
  16.     :menu-item-handlers     (OpenFile Save SaveAs Info QuitShellEdit )
  17.     :menu-item-menus        (nil nil nil nil nil )
  18.     :menu-item-colors       ("" "" "" "" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (documentMenu "Open")
  24.         :when                   (Notify )
  25.         :to                     (documentMenu "Open")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (OpenFile)
  29.         )
  30.         (
  31.         :from                   (documentMenu "Save")
  32.         :when                   (Notify )
  33.         :to                     (documentMenu "Save")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (Save)
  37.         )
  38.         (
  39.         :from                   (documentMenu "Save As")
  40.         :when                   (Notify )
  41.         :to                     (documentMenu "Save As")
  42.         :function_type          CallFunction
  43.         :arg_type               ()
  44.         :action                 (SaveAs)
  45.         )
  46.         (
  47.         :from                   (documentMenu "About ShellEdit")
  48.         :when                   (Notify )
  49.         :to                     (documentMenu "About ShellEdit")
  50.         :function_type          CallFunction
  51.         :arg_type               ()
  52.         :action                 (Info)
  53.         )
  54.         (
  55.         :from                   (documentMenu "Quit")
  56.         :when                   (Notify )
  57.         :to                     (documentMenu "Quit")
  58.         :function_type          CallFunction
  59.         :arg_type               ()
  60.         :action                 (QuitShellEdit)
  61.         )
  62.     )
  63. )
  64. (
  65.     :type                   :base-window
  66.     :name                   baseWindow
  67.     :owner                  nil
  68.     :width                  831
  69.     :height                 457
  70.     :background-color       ""
  71.     :foreground-color       ""
  72.     :label                  "Shell Edit Document :  \"untitled\""
  73.     :label-type             :string
  74.     :initial-state          :open
  75.     :show-footer            t
  76.     :resizable              t
  77.     :icon-file              "ShellEdit.icon"
  78.     :icon-label             ""
  79.     :icon-mask-file         ""
  80.     :event-handler          nil
  81.     :user-data              ()
  82.     :actions                ()
  83. )
  84. (
  85.     :type                   :control-area
  86.     :name                   shellControl
  87.     :owner                  baseWindow
  88.     :help                   ""
  89.     :x                      0
  90.     :y                      0
  91.     :width                  408
  92.     :height                 457
  93.     :background-color       "Gray"
  94.     :foreground-color       ""
  95.     :initial-state          :visible
  96.     :show-border            nil
  97.     :menu                   nil
  98.     :event-handler          nil
  99.     :user-data              ()
  100.     :actions                ()
  101. )
  102. (
  103.     :type                   :button
  104.     :name                   document
  105.     :owner                  shellControl
  106.     :help                   ""
  107.     :x                      24
  108.     :y                      16
  109.     :width                  94
  110.     :height                 19
  111.     :constant-width         nil
  112.     :button-type            :normal
  113.     :foreground-color       ""
  114.     :label                  "Document"
  115.     :label-type             :string
  116.     :initial-state          :active
  117.     :menu                   documentMenu
  118.     :notify-handler         nil
  119.     :event-handler          nil
  120.     :user-data              ()
  121.     :actions                ()
  122. )
  123. (
  124.     :type                   :message
  125.     :name                   editListMessage
  126.     :owner                  shellControl
  127.     :help                   ""
  128.     :x                      120
  129.     :y                      20
  130.     :width                  218
  131.     :height                 13
  132.     :foreground-color       ""
  133.     :label                  "      Edit List     Number of Edits :"
  134.     :label-type             :string
  135.     :label-bold             t
  136.     :initial-state          :active
  137.     :event-handler          nil
  138.     :user-data              ()
  139.     :actions                ()
  140. )
  141. (
  142.     :type                   :message
  143.     :name                   numOfEdits
  144.     :owner                  shellControl
  145.     :help                   ""
  146.     :x                      348
  147.     :y                      20
  148.     :width                  8
  149.     :height                 13
  150.     :foreground-color       ""
  151.     :label                  "0"
  152.     :label-type             :string
  153.     :label-bold             t
  154.     :initial-state          :active
  155.     :event-handler          nil
  156.     :user-data              ()
  157.     :actions                ()
  158. )
  159. (
  160.     :type                   :message
  161.     :name                   scrollerMessage
  162.     :owner                  shellControl
  163.     :help                   ""
  164.     :x                      32
  165.     :y                      48
  166.     :width                  304
  167.     :height                 13
  168.     :foreground-color       ""
  169.     :label                  "Edit #    Label                                      Duration"
  170.     :label-type             :string
  171.     :label-bold             t
  172.     :initial-state          :active
  173.     :event-handler          nil
  174.     :user-data              ()
  175.     :actions                ()
  176. )
  177. (
  178.     :type                   :scrolling-list
  179.     :name                   scrollList
  180.     :owner                  shellControl
  181.     :help                   ""
  182.     :x                      24
  183.     :y                      68
  184.     :width                  330
  185.     :height                 164
  186.     :value-x                24
  187.     :value-y                68
  188.     :rows                   8
  189.     :foreground-color       ""
  190.     :label                  ""
  191.     :title                  ""
  192.     :label-type             :string
  193.     :layout-type            :horizontal
  194.     :read-only              t
  195.     :multiple-selections    nil
  196.     :selection-required     nil
  197.     :initial-state          :active
  198.     :droppable              nil
  199.     :default-drop-site      nil
  200.     :menu                   nil
  201.     :notify-handler         ScrollList
  202.     :event-handler          nil
  203.     :initial-list-values    ()
  204.     :initial-list-glyphs    ()
  205.     :initial-selections     ()
  206.     :user-data              ()
  207.     :actions                (
  208.         (
  209.         :from                   (baseWindow scrollList)
  210.         :when                   (Notify )
  211.         :to                     (baseWindow scrollList)
  212.         :function_type          CallFunction
  213.         :arg_type               ()
  214.         :action                 (ScrollList)
  215.         )
  216.     )
  217. )
  218. (
  219.     :type                   :message
  220.     :name                   currentSelection
  221.     :owner                  shellControl
  222.     :help                   ""
  223.     :x                      104
  224.     :y                      244
  225.     :width                  126
  226.     :height                 13
  227.     :foreground-color       ""
  228.     :label                  "Current Selection :"
  229.     :label-type             :string
  230.     :label-bold             t
  231.     :initial-state          :active
  232.     :event-handler          nil
  233.     :user-data              ()
  234.     :actions                ()
  235. )
  236. (
  237.     :type                   :message
  238.     :name                   currentSelectionField
  239.     :owner                  shellControl
  240.     :help                   ""
  241.     :x                      240
  242.     :y                      244
  243.     :width                  59
  244.     :height                 13
  245.     :foreground-color       ""
  246.     :label                  "New Edit"
  247.     :label-type             :string
  248.     :label-bold             t
  249.     :initial-state          :active
  250.     :event-handler          nil
  251.     :user-data              ()
  252.     :actions                ()
  253. )
  254. (
  255.     :type                   :text-field
  256.     :name                   command
  257.     :owner                  shellControl
  258.     :help                   ""
  259.     :x                      24
  260.     :y                      268
  261.     :width                  360
  262.     :height                 32
  263.     :value-x                24
  264.     :value-y                285
  265.     :value-length           45
  266.     :stored-length          255
  267.     :rows                   3
  268.     :foreground-color       ""
  269.     :text-type              :alphanumeric
  270.     :label                  "Command :"
  271.     :label-type             :string
  272.     :layout-type            :vertical
  273.     :value-underlined       t
  274.     :initial-value          ""
  275.     :initial-state          :active
  276.     :read-only              nil
  277.     :notify-handler         nil
  278.     :event-handler          nil
  279.     :user-data              ()
  280.     :actions                ()
  281. )
  282. (
  283.     :type                   :text-field
  284.     :name                   label
  285.     :owner                  shellControl
  286.     :help                   ""
  287.     :x                      24
  288.     :y                      320
  289.     :width                  357
  290.     :height                 15
  291.     :value-x                77
  292.     :value-y                320
  293.     :value-length           38
  294.     :stored-length          255
  295.     :rows                   3
  296.     :foreground-color       ""
  297.     :text-type              :alphanumeric
  298.     :label                  "Label :"
  299.     :label-type             :string
  300.     :layout-type            :horizontal
  301.     :value-underlined       t
  302.     :initial-value          ""
  303.     :initial-state          :active
  304.     :read-only              nil
  305.     :notify-handler         nil
  306.     :event-handler          nil
  307.     :user-data              ()
  308.     :actions                ()
  309. )
  310. (
  311.     :type                   :text-field
  312.     :name                   duration
  313.     :owner                  shellControl
  314.     :help                   ""
  315.     :x                      24
  316.     :y                      356
  317.     :width                  194
  318.     :height                 15
  319.     :value-x                154
  320.     :value-y                356
  321.     :value-length           8
  322.     :stored-length          80
  323.     :rows                   3
  324.     :foreground-color       ""
  325.     :text-type              :alphanumeric
  326.     :label                  "Duration (in sec) :"
  327.     :label-type             :string
  328.     :layout-type            :horizontal
  329.     :value-underlined       t
  330.     :initial-value          ""
  331.     :initial-state          :active
  332.     :read-only              nil
  333.     :notify-handler         nil
  334.     :event-handler          nil
  335.     :user-data              ()
  336.     :actions                ()
  337. )
  338. (
  339.     :type                   :button
  340.     :name                   indefinite
  341.     :owner                  shellControl
  342.     :help                   ""
  343.     :x                      232
  344.     :y                      356
  345.     :width                  78
  346.     :height                 19
  347.     :constant-width         nil
  348.     :button-type            :normal
  349.     :foreground-color       ""
  350.     :label                  "Indefinite"
  351.     :label-type             :string
  352.     :initial-state          :active
  353.     :menu                   nil
  354.     :notify-handler         Indefinite
  355.     :event-handler          nil
  356.     :user-data              ()
  357.     :actions                (
  358.         (
  359.         :from                   (baseWindow indefinite)
  360.         :when                   (Notify )
  361.         :to                     (baseWindow indefinite)
  362.         :function_type          CallFunction
  363.         :arg_type               ()
  364.         :action                 (Indefinite)
  365.         )
  366.     )
  367. )
  368. (
  369.     :type                   :button
  370.     :name                   performCommand
  371.     :owner                  shellControl
  372.     :help                   ""
  373.     :x                      27
  374.     :y                      392
  375.     :width                  134
  376.     :height                 19
  377.     :constant-width         nil
  378.     :button-type            :normal
  379.     :foreground-color       ""
  380.     :label                  "Perform Command"
  381.     :label-type             :string
  382.     :initial-state          :active
  383.     :menu                   nil
  384.     :notify-handler         PerformCommand
  385.     :event-handler          nil
  386.     :user-data              ()
  387.     :actions                (
  388.         (
  389.         :from                   (baseWindow performCommand)
  390.         :when                   (Notify )
  391.         :to                     (baseWindow performCommand)
  392.         :function_type          CallFunction
  393.         :arg_type               ()
  394.         :action                 (PerformCommand)
  395.         )
  396.     )
  397. )
  398. (
  399.     :type                   :button
  400.     :name                   add
  401.     :owner                  shellControl
  402.     :help                   ""
  403.     :x                      169
  404.     :y                      392
  405.     :width                  77
  406.     :height                 19
  407.     :constant-width         t
  408.     :button-type            :normal
  409.     :foreground-color       ""
  410.     :label                  "      Add"
  411.     :label-type             :string
  412.     :initial-state          :active
  413.     :menu                   nil
  414.     :notify-handler         Add
  415.     :event-handler          nil
  416.     :user-data              ()
  417.     :actions                (
  418.         (
  419.         :from                   (baseWindow add)
  420.         :when                   (Notify )
  421.         :to                     (baseWindow add)
  422.         :function_type          CallFunction
  423.         :arg_type               ()
  424.         :action                 (Add)
  425.         )
  426.     )
  427. )
  428. (
  429.     :type                   :button
  430.     :name                   delete
  431.     :owner                  shellControl
  432.     :help                   ""
  433.     :x                      272
  434.     :y                      392
  435.     :width                  77
  436.     :height                 19
  437.     :constant-width         t
  438.     :button-type            :normal
  439.     :foreground-color       ""
  440.     :label                  "     Delete"
  441.     :label-type             :string
  442.     :initial-state          :active
  443.     :menu                   nil
  444.     :notify-handler         Delete
  445.     :event-handler          nil
  446.     :user-data              ()
  447.     :actions                (
  448.         (
  449.         :from                   (baseWindow delete)
  450.         :when                   (Notify )
  451.         :to                     (baseWindow delete)
  452.         :function_type          CallFunction
  453.         :arg_type               ()
  454.         :action                 (Delete)
  455.         )
  456.     )
  457. )
  458. (
  459.     :type                   :button
  460.     :name                   killProcesses
  461.     :owner                  shellControl
  462.     :help                   ""
  463.     :x                      28
  464.     :y                      420
  465.     :width                  132
  466.     :height                 19
  467.     :constant-width         nil
  468.     :button-type            :normal
  469.     :foreground-color       ""
  470.     :label                  "    Kill Processes    "
  471.     :label-type             :string
  472.     :initial-state          :active
  473.     :menu                   nil
  474.     :notify-handler         KillProcesses
  475.     :event-handler          nil
  476.     :user-data              ()
  477.     :actions                (
  478.         (
  479.         :from                   (baseWindow killProcesses)
  480.         :when                   (Notify )
  481.         :to                     (baseWindow killProcesses)
  482.         :function_type          CallFunction
  483.         :arg_type               ()
  484.         :action                 (KillProcesses)
  485.         )
  486.     )
  487. )
  488. (
  489.     :type                   :button
  490.     :name                   modify
  491.     :owner                  shellControl
  492.     :help                   ""
  493.     :x                      169
  494.     :y                      420
  495.     :width                  77
  496.     :height                 19
  497.     :constant-width         t
  498.     :button-type            :normal
  499.     :foreground-color       ""
  500.     :label                  "    Modify"
  501.     :label-type             :string
  502.     :initial-state          :active
  503.     :menu                   nil
  504.     :notify-handler         Modify
  505.     :event-handler          nil
  506.     :user-data              ()
  507.     :actions                (
  508.         (
  509.         :from                   (baseWindow modify)
  510.         :when                   (Notify )
  511.         :to                     (baseWindow modify)
  512.         :function_type          CallFunction
  513.         :arg_type               ()
  514.         :action                 (Modify)
  515.         )
  516.     )
  517. )
  518. (
  519.     :type                   :button
  520.     :name                   deleteAll
  521.     :owner                  shellControl
  522.     :help                   ""
  523.     :x                      272
  524.     :y                      420
  525.     :width                  77
  526.     :height                 19
  527.     :constant-width         t
  528.     :button-type            :normal
  529.     :foreground-color       ""
  530.     :label                  "  Delete All"
  531.     :label-type             :string
  532.     :initial-state          :active
  533.     :menu                   nil
  534.     :notify-handler         DeleteAll
  535.     :event-handler          nil
  536.     :user-data              ()
  537.     :actions                (
  538.         (
  539.         :from                   (baseWindow deleteAll)
  540.         :when                   (Notify )
  541.         :to                     (baseWindow deleteAll)
  542.         :function_type          CallFunction
  543.         :arg_type               ()
  544.         :action                 (DeleteAll)
  545.         )
  546.     )
  547. )
  548. (
  549.     :type                   :term-pane
  550.     :name                   terminal
  551.     :owner                  baseWindow
  552.     :help                   ""
  553.     :x                      407
  554.     :y                      0
  555.     :width                  424
  556.     :height                 457
  557.     :background-color       ""
  558.     :foreground-color       ""
  559.     :initial-state          :visible
  560.     :show-border            t
  561.     :event-handler          nil
  562.     :user-data              ()
  563.     :actions                ()
  564. )
  565. (
  566.     :type                   :popup-window
  567.     :name                   ShellEditInfo
  568.     :owner                  baseWindow
  569.     :width                  476
  570.     :height                 264
  571.     :background-color       "light gray"
  572.     :foreground-color       ""
  573.     :label                  "Shell Edit Info"
  574.     :label-type             :string
  575.     :initial-state          :invisible
  576.     :show-footer            t
  577.     :resizable              t
  578.     :pinned                 nil
  579.     :done-handler           nil
  580.     :event-handler          nil
  581.     :user-data              ()
  582.     :actions                ()
  583. )
  584. (
  585.     :type                   :control-area
  586.     :name                   InfoControlPanel
  587.     :owner                  ShellEditInfo
  588.     :help                   ""
  589.     :x                      0
  590.     :y                      0
  591.     :width                  476
  592.     :height                 264
  593.     :background-color       ""
  594.     :foreground-color       ""
  595.     :initial-state          :visible
  596.     :show-border            t
  597.     :menu                   nil
  598.     :event-handler          nil
  599.     :user-data              ()
  600.     :actions                ()
  601. )
  602. (
  603.     :type                   :message
  604.     :name                   appNameMessage
  605.     :owner                  InfoControlPanel
  606.     :help                   ""
  607.     :x                      156
  608.     :y                      12
  609.     :width                  161
  610.     :height                 13
  611.     :foreground-color       ""
  612.     :label                  "Shell Edit   Version 1.10"
  613.     :label-type             :string
  614.     :label-bold             t
  615.     :initial-state          :active
  616.     :event-handler          nil
  617.     :user-data              ()
  618.     :actions                ()
  619. )
  620. (
  621.     :type                   :message
  622.     :name                   appDescription1Message
  623.     :owner                  InfoControlPanel
  624.     :help                   ""
  625.     :x                      68
  626.     :y                      40
  627.     :width                  346
  628.     :height                 13
  629.     :foreground-color       ""
  630.     :label                  "An application for executing and timing shell commands"
  631.     :label-type             :string
  632.     :label-bold             nil
  633.     :initial-state          :active
  634.     :event-handler          nil
  635.     :user-data              ()
  636.     :actions                ()
  637. )
  638. (
  639.     :type                   :message
  640.     :name                   appDescription2Message
  641.     :owner                  InfoControlPanel
  642.     :help                   ""
  643.     :x                      24
  644.     :y                      64
  645.     :width                  430
  646.     :height                 13
  647.     :foreground-color       ""
  648.     :label                  "designed for use with the MAEstro Multimedia Authoring Environment"
  649.     :label-type             :string
  650.     :label-bold             nil
  651.     :initial-state          :active
  652.     :event-handler          nil
  653.     :user-data              ()
  654.     :actions                ()
  655. )
  656. (
  657.     :type                   :message
  658.     :name                   developerMessage
  659.     :owner                  InfoControlPanel
  660.     :help                   ""
  661.     :x                      176
  662.     :y                      100
  663.     :width                  112
  664.     :height                 13
  665.     :foreground-color       ""
  666.     :label                  "by Bryant Marks"
  667.     :label-type             :string
  668.     :label-bold             t
  669.     :initial-state          :active
  670.     :event-handler          nil
  671.     :user-data              ()
  672.     :actions                ()
  673. )
  674. (
  675.     :type                   :message
  676.     :name                   copyrightMessage
  677.     :owner                  InfoControlPanel
  678.     :help                   ""
  679.     :x                      8
  680.     :y                      128
  681.     :width                  457
  682.     :height                 13
  683.     :foreground-color       ""
  684.     :label                  "Copyright (C) 1990, 1991, 1992 Libraries and Information Resources (L&IR)"
  685.     :label-type             :string
  686.     :label-bold             nil
  687.     :initial-state          :active
  688.     :event-handler          nil
  689.     :user-data              ()
  690.     :actions                ()
  691. )
  692. (
  693.     :type                   :message
  694.     :name                   copyright2Message
  695.     :owner                  InfoControlPanel
  696.     :help                   ""
  697.     :x                      176
  698.     :y                      152
  699.     :width                  118
  700.     :height                 13
  701.     :foreground-color       ""
  702.     :label                  "Stanford University"
  703.     :label-type             :string
  704.     :label-bold             nil
  705.     :initial-state          :active
  706.     :event-handler          nil
  707.     :user-data              ()
  708.     :actions                ()
  709. )
  710. (
  711.     :type                   :message
  712.     :name                   copyright3Message
  713.     :owner                  InfoControlPanel
  714.     :help                   ""
  715.     :x                      176
  716.     :y                      172
  717.     :width                  119
  718.     :height                 13
  719.     :foreground-color       ""
  720.     :label                  "Stanford, California"
  721.     :label-type             :string
  722.     :label-bold             nil
  723.     :initial-state          :active
  724.     :event-handler          nil
  725.     :user-data              ()
  726.     :actions                ()
  727. )
  728. (
  729.     :type                   :message
  730.     :name                   moreinfoMessage
  731.     :owner                  InfoControlPanel
  732.     :help                   ""
  733.     :x                      80
  734.     :y                      204
  735.     :width                  309
  736.     :height                 13
  737.     :foreground-color       ""
  738.     :label                  "For more info, contact maestro@sioux.stanford.edu"
  739.     :label-type             :string
  740.     :label-bold             nil
  741.     :initial-state          :active
  742.     :event-handler          nil
  743.     :user-data              ()
  744.     :actions                ()
  745. )
  746. (
  747.     :type                   :button
  748.     :name                   info
  749.     :owner                  InfoControlPanel
  750.     :help                   ""
  751.     :x                      208
  752.     :y                      232
  753.     :width                  36
  754.     :height                 19
  755.     :constant-width         nil
  756.     :button-type            :normal
  757.     :foreground-color       ""
  758.     :label                  "OK"
  759.     :label-type             :string
  760.     :initial-state          :active
  761.     :menu                   nil
  762.     :notify-handler         HideInfo
  763.     :event-handler          nil
  764.     :user-data              ()
  765.     :actions                (
  766.         (
  767.         :from                   (ShellEditInfo info)
  768.         :when                   (Notify )
  769.         :to                     (ShellEditInfo info)
  770.         :function_type          CallFunction
  771.         :arg_type               ()
  772.         :action                 (HideInfo)
  773.         )
  774.     )
  775. )
  776. )
  777.